perm filename ZIPPS[CMS,LCS] blob sn#096335 filedate 1974-04-06 generic text, type T, neo UTF8
00100	COMPILE;
00200	VARIABLE /Z;
00300	INSTRUMENT DUMY;
00400	ZOSCIL((P7-P3)*MAG,MAG/P8,P9);
00500	Z←P3*MAG+U1; END;
00600	INSTRUMENT ZUZZ;
00700	ZOSCIL(P4,MAG/P2,P5);
00800	ZOSCIL(U1,Z*P3,P6);
00900	OUTA←OUTA+U2; END;
01000	INSTRUMENT WUZZ;
01100	ZOSCIL(P4,MAG/P2,P5);
01200	ZOSCIL(U1,Z*P3,P6);
01300	OUTA←OUTA+U2; END;
01400	INSTRUMENT GUZZ;
01500	ZOSCIL(P4,MAG/P2,P5);
01600	ZOSCIL(U1,Z*P3,P6);
01700	OUTA←OUTA+U2; END;
01800	INSTRUMENT BUZZ;
01900	ZOSCIL(P4,MAG/P2,P5);
02000	ZOSCIL(U1,Z*P3,P6);
02100	OUTA←OUTA+U2; END;
02200	INSTRUMENT NUZZ;
02300	ZOSCIL(P4,MAG/P2,P5);
02400	ZOSCIL(U1,Z*P3,P6);
02500	OUTA←OUTA+U2; END;
02600	INSTRUMENT MUZZ;
02700	ZOSCIL(P4,MAG/P2,P5);
02800	ZOSCIL(U1,Z*P3,P6);
02900	OUTA←OUTA+U2; END;
03000	INSTRUMENT KUZZ;
03100	ZOSCIL(P4,MAG/P2,P5);
03200	ZOSCIL(U1,Z*P3,P6);
03300	OUTA←OUTA+U2; END;
03400	INSTRUMENT JUZZ;
03500	ZOSCIL(P4,MAG/P2,P5);
03600	ZOSCIL(U1,Z*P3,P6);
03700	OUTA←OUTA+U2; END;
03800	FINISH;